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INTRODUCTION 
ORGANIZATION 

This  document  contains  Nassi-Schneiderman  flow  charts  for  the  software 
comprising  the  operating  system  and  standard  support  package  for  the 
Intelligent  Terminal  operating  system.   Readers  should  refer  to  the 
Intelligent  Terminal  Programmer's  Manual  (CCTC-WAD  document  //7616)  for 
a  description  of  how  these  routines  interact,  and  for  descriptions 
of  the  proper  usage  of  these  routines. 

The  flow  charts  on  the  following  pages  are  arranged  alphabetically 
by  routine  name.   In  most  cases  there  is  one  chart  for  each  routine. 
However,  some  charts  are  too  complex  to  be  presented  legibly  on  a  single 
page.   In  each  of  these  cases,  one  or  more  sections  of  the  chart  have  been 
broken  out  and  placed  on  a  following  page.   If  a  notation  such  as 
"See  ph_driver:   read_type"  appears  in  a  chart,  then  a  sub-chart  labeled 
"ph_driver:   read_type"  will  appear  on  one  of  the  immediately  following 
pages. 

There  are  two  implementations  of  the  Intelligent  Terminal  software. 
One  of  these  runs  on  a  Digital  Equipment  Corporation  LSI-11  minicomputer,  and 
the  other  runs  on  Honeywell  Level  6  minicomputers.   Most  routines  are 
identical  in  the  two  implementations.   A  few  routines  are  implemented  differently 
on  the  two  machines,  primarily  due  to  fundamental  differences  in  the 
structure  of  the  hardware  base.   Each  of  these  routines  has  two  charts, 
one  for  the  LSI-11  version  and  one  for  the  Level  6  implementation. 


NASSI-SHNEIDERMAN  DIAGRAMS 


The  diagramming  technique  developed  by  I.  Nassi  and  B.  Shneiderraan 
(cf.  SIGPLAN  Notices,  August  1973)  provides  four  basic  visual  structures 
corresponding  to  the  four  basic  constructs  of  a  program: 

1.  process, 

2.  decision, 

3.  multi-case  decision,  and 

4.  iteration. 

The  Nassi-Shneiderman  visual  structures  corresponding  to  these  program 

constructs  are  described  below. 

Process 

A  process  (meaning  any  computation)  is  represented  by  a  box  as 
follows: 


compute  <a> 


The  box  is  usually  named,  or  some  English  phrase  or  some  equa- 
tion is  written  in  the  box  to  indicate  the  nature  of  the  process  or  compu- 
tation.  The  box  may  represent  any  process  or  computation,  from  the  whole 
of  an  operating  system  to  a  single  statement  of  the  kind  "a  =  b  +  c".   An 
empty  box  represents  the  null  process:   "do  nothing". 
Decision 

The  two  most  common  decisions  are  represented  by  the  if  statement 
and  the  if... else  statement.   These  two  decisions  are  represented  as  follows 

1.   if  statement: 


2.   if  ...  else  statement: 


compute  <a> 


compute  <b> 


Multi-case  Decision 

The  representation  of  a  multi-case  decision  is  a  simple  extension 
of  the  previous  visual  structure  for  representing  simple  decisions: 


Case  1 


Case  2 


Case. . . 


Case  N 


Default 


compute 
<a> 


compute 
<b> 


compute 


compute 
<n> 


compute 
<default> 


Iteration 

The  two  most  common  forms  of  iteration  are  those  with  a  top 
test  and  those  with  a  bottom  test.   These  two  forms  of  iteration  are 
represented  as  follows: 

1.   top  test: 


loop  <test> 

compute  <a> 

bottom  test: 

compute  <a> 

lc 

op  <test> 

Combination 

The  visual  structures  presented  above  may  be  combined  to  any 
degree  to  represent  a  computational  structure,  e.g.: 


alloc(size) 


For  every  used  entry  in  CORETAB. 


Is  the  size  of  this  entry 
reater  than  or  equal 
to  size? 


YES 


Remember  the  address  of  this  entry, 


Move  the  beginning  of  the  entry 
to  after  this  piece. 


Decrement  the  size  of  the  entry 
by  the  size  of  the  piece  being 
allocated. 


Is  size  of  entry  now  0? 


YES 


Delete  this  empty  entry  by 
copying  rest  of  CORETAB  up 
one  slot. 


Return  the  remembered  address, 


Return  -1. 


area  lite(xl,yl,x2,y2,mode) 


Is  this  a  lite  or  an  erase' 


LITE 


ERASE 


Do  while  there  are  at  least  16  dots  high 
to  lite 


Light  a  row  16  dots  high  using  put 


Do  while  there  are  at  least  16  dots 
high  to  erase 


Erase  a  row  of  dots  16  dots 
high  using  erase 


Is  there  still  a  partial  row  to  do 


Lite  or  erase  the  last  partial  row  using  put  or  erase 


NOTE:   This  version  of  area  lite  is  specific  to  the  LSI-11  IT. 


area  lite 


Write  an  appropriately  formatted  message  to  the  Z80  panel  controller. 


HOTE:  This  veraion  of  area  lite  ia  specific  to  the  L6  IT. 


blk_alloc(drv) 
Por  every  word  In  the  free  up 


Are  any  of  the  bits  In  this  word  of  the  free- 
HO  ^^^«ep  not  set? 


Set  this  bit  to  I. 


blk  »  nuaber  of  block  corresponding  to  this  bit. 


Is  blk  out  of  range,  or  did  leroing 
»0  ^-N^Mock  fall? 


YES 


Return  (-1). 


Return  (blk). 


Return  (-1). 


blk  free(drv,  blk) 


NO   X. 

blk  «  0? - 

'                        YES 

Return  (0). 

"""                             Is  drv  valid? 
NO                             —• _ 

y^           YES 

Return  (-1) 

Reset  the  bit  in  the  free  map  for  drive  drv  that  corresponds  to  block  blk. 

Return  (0). 

block () 


Save  incoming  registers. 


Update  stack  ptr  and  environment  linkage  registers. 


Store  environment  linkage  and  return  address  registers  in  stack  base. 


Stack  overflow  or  destroyed  guardword? 


NO 


frst  block: 


while  (READY_Q  is  empty) 


Wait  for  entry  on  READY_Q. 


Dequeue  id  of  next  process,  and  store  it  in  ME. 


Put  return  address  from  stack  base  in  a  register. 


Restore  other  registers  from  environment  linkage  section. 


Return  to  new  process. 


buflu(«v,   bill,   o,    tisi-rbuf,    1,    fen) 


10 


clear  io() 


Do  for  each  device. 


YES 


Is  thla  device  In  use? 


NO 


Do  n  times  where  n  Is  the  number  of  elements  In  the  requestor  queue. 


Deq  one  value  from  requestor  queue. 


Is  the  requestor  just  deq'd  this  process? 


NO 


Re-queue  the  element. 


Close  the  device. 


NOTE:   This  version  of  cleario  is  specific  to  the  LSI  11  IT. 
clear  io() 


Do  for  each  device. 


— _^^^     Is  this  device  in  use? 

YES                            " 

>^N0 

Do 

ii  times  where  n  is  the  number  of  elements  In  the  requestor  queue. 

Deq  one  value  from  requestor  queue. 

**                 Is  the  requestor  just  deq'd  this  process? 
NO                           " ■ -__ 

>4es 

Re-queue  the  element. 

~ ■ _   Is  this  process  the  owner  of  the  device? 

YES                              

Sm 

Close  the  device. 

NOTE:   This  version  of  cleario  Is  specific  to  the  Level  6  IT. 
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elose(devlce_ld,  istatua) 


Write  a  flush  message  to  the  handler  process. 


Pee  the  request  semaphore. 


Write  a  close  message  to  the  handler  process. 


Pee  the  request  semaphore. 


Flag  device  as  being  ownerless. 


Do  for  each  disk  entry  In  DEV  TAB 


Set  atatus  for  return  from  that  returned  from  handler  process  close  request, 


Is  "catastrophic"  bit  on  In  status? 


NO 


YES 


Return  error   Indication. 


Return  with  no   error   indication. 
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cmp   (a,   b,    length) 


13 


crcntc(nam«,  atac  ptr) 


Update  uaerflb  for  file  to  indicate  0  length  and  out-of-date  directory  information. 


Return  (Id) 


Temporarily  terminate  name  at  end  of  name  of  containing  directory 


Open  the  containing  directory  and  store  results  in  id. 


Seek  in  directory  to  beginning  of  empty  directory. 


Create  a  directory  entry  structure  by  copying  the  file  name  into  it  and  setting  the  flaga  and  lengths 
to  Indicate  a  zero  length  new  file. 


Allocate  a  disk  block  to  use  as  index  block. 


Ik 


creep(stack_size,  proc,  pann,  priority) 


Get  pointer  to  the  bottom  of  the  stack. 


Store  parm  in  the  last  word  of  the  stack. 


Set  up  a  register  save  area  just  above  the  bottom  of  the 

stack;  put  dummy  values  in  the  stack  and  environment  regs; 

make  it  look  like  the  process  was  called  by  suicide,  and 
zero  all  the  other  regs. 


Set  up  the  stack  base:   set  the  guardwork,  priority  and 
stack  size;  point  the  B7  entry  at  the  register  save  area 
at  the  bottom  of  the  stack,  point  the  B5  entry  at  the 
main  procedure  for  the  process. 


Put  the  new  process  on  the  READY  Q. 


Return  the  value  returned  by  alloc. 


NOTE:   This  version  of  creep  is  specific  to  the  Level  6. 
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cvb(ptr,  length,  value  ptr) 


Value  -  0. 


Doea  the  string  to  be  converted  atart  with 
a  minus  sign? 


Reaet  the  neg  flag. 


Set  the  neg  flag. 


Skip  the  minus  sign. 


Decrease  the  length  by  1 


For  every  character  that  is  a  digit,  up  to  length  chars 


value  -  the  previous  value  multiplied  by  the  base  and  the  value 
corresponding  to  the  next  digit  of  the  string. 


delete  (filename,  status) 


16 


Open  the  file. 

Did  open  succeed? 
NO                        ■ ■ 

/yes 

Return  error. 

Send  a  delete  request  to  device  handler. 

Pee  the  request  semaphore. 

Set  status  from  that  returned  by  device  handler. 

*"*"— "-^^^^^^   Catestrophlc  bit  on  in  status?             ^ — """ 
YES                 "*"""■  ^        ^^ - """"""~" 

NO 

Return  error. 

Return  success. 

17 


determine (name) 


18 


deq(q_ptr) 


Remove  the  oldest  element  from  the  queue. 


Cet  the  value  from  that  element, 


Return  element  to  the  list  of  free  elements. 


Did  this  empty  the  queue? 


NO 


Mark  queue  head  as  empty. 


Restore  initial  processor  priority. 


Return  (value) 


19 


dir  open(ev,  fib,  index  b) 


Inic  file  info  block  for  file. 

Read  directory  entry  for  file. 

X^   Did  read  fail  or  is  this  not  a  file?         — — ***"**" 

N0\            ^ "            YES 

Put  impossible  values  in  file  info  block. 

Return  (-1). 

Finiah  opening  directory. 

Position  read/write  pointer  after  directory's  entry  for  itself. 

Return  (0). 

dlaablo  lo(chan) 


Send  stopio  channel  control  to  indicated  channel. 


Return  results  of  this. 


20 


u 

41 

> 

U 


ki    ■ 

•H     3 

A  kl 

<U 

eo  w 

oi  a 

u 

|CB 

ki  - 

o    kl 

41    4) 

■•->  i-4 

1  k 
1  «— 
I    = 

01  -4 

k,   a 
o 

1     « 

*j 

I    U. 

o)  e 

1      * 

CO    -H 

1     "° 

u 

o        a 

ki   c  - 

ki   -H     U     CO 

u 

01         ^v 

01           01     3 

•-* 

kl                        ^V. 

■  H    <J 

i-t 

01                             >y^ 

U    U   H     g 

»*4 

0)  "H    CO    U 

/           ** 

01   *-                              ^V 

c/3  js   cj  a 

1           ^ 
f           01 

1           *""* 

0) 
4-1 
0) 

■a  ih                     > 

•V    CO                 -»«**^ 

*«\ 

f        * 

4) 

a 

1-1  ^*^^^^^ 

c 

1        "° 

SK 

ki 

B 

ki 

O            CO 

o 

0 

ki    c  - 

N^ 

e 

01 

ki   t\     U     CO 
0)           41     3 

£ 

B. 

X              ^v. 

a)  i-t  u 

cj 

J 

CO                   ^v 

kl   kl  rH    RJ 

kl 

1                    ft 

c 

■H     • 
k> 

JZ    41 

3                               \ 

.-4    C-                                     >*. 
<4-l    .-4                                          \ 

T3      10                      ^*>^^ 

co  x    cj    a 

1                   3 

1                  —t 
Ifcl 

3  «-> 

1-1     »4-            _^^^^ 

<-l    3 

a^^"0^'^ 

J< 

01 

V 

a 

o 

S    w 

ki 

o 

o        a 

kl   kl 

ki   c  -       • 

ik4    01 

ki   t4     ki     CO 

1*4 

01            01     3 

«J   "4-1 

01                      ^*. 

01   H    U 

w    3 

4J                                    ^-^ 

U   ii  H    4 

c4  J3 

■H                                 ^V- 

01    -H     CO    kl 

•o 

ki  c-                             ^v 

W   JS    O    CO 

41 
•J 

1-1 

H 

» 

lte 
er 's 
le. 

3    ~l                                     3 

T3     CO               _-»««"^ 

1H     4-1 ^^^ 

kl     CO    -H 

3    3  X-. 

1      0) 

a 

.-1     3 

a  u 

E    ki 

kl     O     CO 

0    01 

0          ki 

ki    a) 

kl     C     0) 

u-i    3 

ki   -H 
01            CO 

CO    0 

■O                                >w 

n  -     • 

4J     *J 

CO                                >v 

kl    kl    ki 

eg  e    • 

01                                     >v 

01    -H     01 

TJ    1H      kl 

ki  <^                          ^v 

CO   J3   .-1 

49 

41 
ki 

0) 

13     «    fa 

(0    --«    u-i 

T4    <o          ^^.^.-""^ 

4)    -H     3 

Q   ***0***"^ 

a 

OS   Wi   .O 

u 

o 

1 

f-t 

01 

« 

-O 

kl        kl 

O" 

* 

0            CO 

2 

kl 

o 

W  c 

CO 

• 

ki   "r*     CO 

p 

t) 

3 

o 
u 

41 

i-H 

41                    >v 

CO                      ^v 

01 

CO     ki      • 

a 

o- 

1* 

O                            >v 

4-1    kl     01     CO 

0 

4) 

•o 

**4 

(—4                                            ^^^ 

0)   -H     CO     3 

• 

u 

ki 

u 

01 

cj  c-                           >. 

CO   .£>    3    kl 

CO 

<H 

e 

0 

5 

CD 

0 

01 

a) 

i-4                                                ^ 

T3    -H                              ^00-* 

CO 

01 

kl 

0 

«H 

O 

1-1    <fl             ^^^^"^ 

CJ 

■ 

i* 

a 

CJ 

t-4 

Q   **^^^^ 

o 

« 

<M 

3 

CJ 

u 

3 

•o 

<8 

a 

V 

e 

u 

oo 

ki 

i 

CO 

a 

•J 

i 

a 

kl 

X 

o 

• 

CO 

4» 

u 

ki 

01 

e 

41 

41 

■ 

3 

er 

kl 

•o 

3 

41 

u 

3 

0 

ki 

m 

a 

u 

u 

> 

c 

01 

41 

c 

41 

« 

M 

a 

CO 

01 

« 

u 

a 

> 

0 

o 

■M 

i 


21 


enable   io(chan,    dev) 


^^""""^^^.^^^Is  this  an  output  channel?              t  _ — — "~~~^ 

NO                 ^^^                   ^ YES 

In_out  -  0. 

In  out  "  1. 

Addr  -  starting  address  In  MLCP  of  the  CCP  for  this  channel. 

Flag  -  results  of  sending  first  byte  of  addr  to  the  appropriate  LCT  byte. 

**                        Flag  Indicates  error? 

y'YES 

Flag  -  results  of  sending  second  byte  of  addr  to  the  appropriate  LCT  byte. 

Flag  Indicates  error? 

y'YES 

Flag  •  results  of  sending  start  lo  channel  control  word  to  the  channel. 

Return  (flag). 

22 


enq(q_ptr,  value) 

^^^^^^  Is  there  a  free  queue  element? 
NO               ^N,",,,^»^^^    ^t00^00^'^ 

YES 

Call  error. 

Become  non-interruptable. 

Remove  a  queue  element  from  the  free  list. 

Store  value  In  the  element. 

^^^^^     Is  the  queue  empty? 
NO             ^*^**^,^^^       ^t^0^0"^ 

YES 

Add  the  queue  element  to  the 
end  of  the  queue  element  list. 

Make  the  queue 
list. 

a  one-element 

Point  the  queue  head  at  the  new  element. 

Restore  initial  processor  priority. 

23 


*uq_RQ(proc_ld,   priority) 


^^**«*^^^     Is  there  a  free  queue  element? 
NO                  ^^^ 

^^0^"000^'             YES 

Call  error. 

Make  us  non-lnterruptable. 

Remove  a  queue  element  from  the  free  list. 

Store  proc_id  in  the  value  field  of  the  element. 

'Is  the  READY_Q  empty' 

^^^""^    YES 

Find  first  entry  in  READY  Q  whose  priority 
value  is  less  than  priority. 

Hake  the  queue  a  1-element  list. 

Insert  new  element  Just  before  the  old  element. 

Point  READY_Q  at  new  element. 

^^  Did  this  add  new  element  at  end   ^<-**""""'^ 
>w          of  list?        ^0^0*0^ 

NO     >w      ^)0t^^000^'                  YES 

Point  READY  Q  at  new  element. 

Restore  initial  processor  priority. 

2k 


entry 


Compute  the  high  end  of  usable  memory, 


Set  up  the  stack  registers. 


Put  address  of  high  end  of  memory  onto  stack. 


Jump  to  start  up. 


erase  (x>  y,  vector,  count,  flag) 


Compute  any  shifting  req 

uired  to  do  addressing  on  16-dot  boundaries. 

,,       la  it  a  single  vector  written  many  times?                          ™ 

YES          — » >_______^                          

"""""•^^^^^   Is  shifting  required?      ^-~~~~~'^^ 

Rsrv_pnl. 

""   — — ~Js_shlf ting  required?          ^^ 

Write  top  part  of 
vector. 

Write  out  the  vector. 

Copy  vectors  into  local  buffer  and  write 
out  18  at  a  time,  shifting  to  write  lower 
parts  of  vectors. 

Write  bottom  part  of 
vector. 

Copy  vectors  into  local  buffer  and  write  out  18  at 
a  time,  shifting  to  write  upper  parts  of  vectors 
(or  all  of  vectors). 

Rls_pnl. 

NOTE:   This  version  of  erase  is  specific  to  the  Level  6  IT. 
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error (err  no) 


Become  non-lnterrupCable. 


Print  an  error  message,  depending  on  the  value  of  err_no. 


halt(). 


fclose(ev,  fib) 


Flush  the  In  memory  Index  block  for  the  file. 


Has  the  file  gotten  bigger? 


Update  directory  to  Indicate  new  size. 


Flush  the  ln_memory  data  buffer. 


Mark  ev  and  fib  as  unused, 


Return  (0). 
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fdelete(ev,    fib) 


Flush  lnuemory  copy  of  file's  Index  block. 


Did  flueh  fall,  or  Is  thle  the  root  directory? 


Return(-l). 


Mark  all  blocks  used  by  the  file  as  free. 


Restore  lnjnetnory  copy  of  freereap. 


Return(-l). 


Mark  index  block  for  file  as  free. 


Flag  -  false. 


Flag  -  results  of  opening  directory  containing  file. 


Flag  -  results  of  seeking  to  directory  entry  for  file. 


Mark  directory  entry  on  disk  for  file  as  empty 


Restore  inmemory  copy  of  freenap. 


Return(-l), 


Clean  up    inmemory   data   buffer. 
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first  block 


Jump  into  the  middle  of  block  -  to  the  point 
where  it  picks  up  a  process  from  the  ready 
queue. 
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fl<i<fv,    flh,    imiTbiil.     I,    l.n) 
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flxup (reserve  size) 


Save  Initial  values  of  R5,  R6,  and  memory  location  4. 


Put  the  address  of  trap_catcher  In  memory  location  4 


For  (RO  -  0;j  R0  -+1024) 


Try  accessing  memory  location  whose  address  is  in  RO  (will  goto  trap_catcher 
when  try  to  access  a  non-existent  location). 


Count_down: 

Decrement  RO  and  try  accessing  that  location. 


Decrement  RO  by  1. 


Subtract  reserve  size  from  RO. 


Copy  RO  to  R5. 


R6  -  RO  -  the  initial  difference  between  R6  and  R5. 


Restore  the  initial  value  in  memory  location  4. 


Make  lnterruptable. 


Clean  up  the  stack. 


Return  to  caller. 


Trap_catcher: 

Put  the  address  of  count  down  on  the  stack. 


Return  from  trap. 
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flush (device_id,  st_ptr) 


Send  a  flush  message  Co  Che  device  handler  process. 


Pee  Che  request  semaphore. 


Sec  sCaCus  for  return. 


Return  error. 


Is  catastrophic  bit  on  in  status? 


Return  no  error. 


fopen(ruitne,     lib,    drv,    root) 


Dev  •  dddrcsa  of  buffer  structure  t.<r  (IiIh  drive 


Loop  forever 


Open  file  whose  Index  block  Is  root  an  a   directory. 


NO 


Old  dlr  open,  fall? 


YES 


Return(-l). 


NO 


Have  we   reached    the   end   of   the   n.irae? 


YES 


Set  file  offset  In  fib  to  0. 


Return(O) . 


For  (off  •  size  of  a  dtr_entry  structure;; 
off  ~+  size  of  dlr  entry  structure) 


Read  next  directory  from  directory. 


Did  read  fall? 


NO 


YES 


Return(-l). 


Is  this  directory  entry  empty? 


JESS. 


Continue. 


New  •  results  of  using  pathname  to  compare  name  to  name  for  this  entry. 


Return(-l). 


Update  name  to  point  to  character  after  delimiter. 


Update  root  to  be  index  block  for  this  entry. 


Break. 


Update  root  to  he  index  block  for  this  entry. 


Update  nunc  tu  pMnt  to  end  of  name. 


Return  result*  of  dolnp,  xopen  on  this  entry. 
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free(slze,  addr) 


Find  the  first  entry  in  CORETAB  whose  address  is  less  than  addr. 
This  may  be  the  entry  after  the  last  used  entry. 


NO 


Is  the  entry  being  freed  con- 
tiguous with  the  succeed- 
ing one? 


Is  the  preceeding  entry  contiguous 
with  the  one  being  freed? 


NO 


YES 


Copy  the  succeed- 
entries  down  a 
slot. 


Insert  the  piece 
to  be  freed  into 
the  table. 


Move  address. of  this 
entry  to  the  begin- 
ning of  the  freed 
piece. 


Add  size  to  the  size 
of  this  entry. 


Add  size  to  size  of  previous  entry. 


Does  this  make  previous  entry 
contiguous  with  this  one? 


YES 


Add  size  of  this  entry  to 
previous  one. 


Move  rest  of  table  up  one 
slot  to  delete  this  entry. 
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fseek(fib,  off,  type) 


o  -  0. 


Treating  off  as  a  signed  integer, 
convert  it  to  a  number  of  blocks 
b  and  an  offset  o  into  the  last 
block. 


b  -  -1 

Add  block  size  to  o  to 

make  it  positive. 


Treating  off  as  an  unsigned 
integer,  convert  it  to  a  num- 
ber of  blocks  b  and  offset  o 
in  the  last  block. 


0,3 


1,4 


Switch (type) 
2,5 


Set  the  read/write  pointer 
for  this  file  to  block  of  b, 
offset  of  o. 


Move  read/write  pointer  to  end 
of  file. 


Add  block  offset  of  b  and  byte  offset  of  o  to  read/write  pointer. 
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ftrunc(ev,  fib) 


Write  out  the  index  block  for  this  file. 


Max  •  number  of  blocks  in  file. 


Has  the  last  block  been  allocated? 


Decrement  max. 


Indx  -  number  of  disk  block  that  is  disk  block  for  this  file. 


For  every  block  in  file: 


Read  in  the  number  of  disk  block  for  this  block. 


Free  the  disk  block  with  this  number. 


Zero  the  index  block. 


Set  size  of  file  to  0. 


Set  necessary  flags  in  fib. 


Retum(O). 


36 


get  charset() 


Return  (CS  ID) 


get_cursor(x_ptr,  y_ptr) 


Convert  current  cursor  position  from  dots  to  characters, 
using  the  sire  of  characters  in  the  current  char  set. 


Assign  dimensions  into  *x_ptr  and  *y_ptr. 


NOTE:   This  version  of  get_cursor  is  specific  to  the  LSI- 11  IT. 


get_cursor  (xptr,  y_ptr) 


Read  cursor  from  the  display  head. 


Convert  values  returned  to  character  offsets. 


NOTE:   This  version  of  get_cursor  is  specific  to  the  Level  6  IT. 
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get  env  (env_ptr) 

Call  get_charset  and  save  pointer  to  charset. 

Call  get_cursor  and  aave  cursor  values. 

Call  get_pg  and  save  page  descriptor. 

"*  "— — ...^^^      Is  this  the  Level  6  version? 

YES            """"""^^-^^^^ 

/no 

Call  ge»t^pnl  and  save  panel  flags. 

get_page_size(w_ptr,  h_ptr) 


Convert  current  page  size  from  dots  into  characters,  using  the 
size  of  characters  in  the  current  char  set. 


Assign  values  into  *y_ptr  and  *h_ptr. 


get_pg(pg_ptr) 


Copy  values  in  PAGE  to  structure  pointed  to  by  pgptr. 


get_Bize_chars(v_ptr,  h_ptr) 


Copy  character  size  froa  CS_ID  structure  to  *w_j>tr  and  *h_ptr. 
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halt 


Do 

forever 

Execute  a  HLT  Instruction. 

Return  Co  caller. 

NOTE:   The  procedure  will  never  return  by  Itself. 
The  user  will  have  to  externally  change  the 
PC  to  get  out  of  the  HLT  -  loop. 

l_freemap(drv) 


lnit_ccb(chan,    buf,    buf_slze,    cntrl) 


Flag  -  results  of  doing  lold  to  set  up  buffer. 

^*^       Flag  Indicates  error? 

NO  ^V.                              _———"" """"               YES 

Flag  -  results  of  sending  cntrl  to  CCB  control  word. 

Return(flag). 
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get_token(buf_ptr,  tok_ptr,  della_ptr) 


Get  index  of  first  char  in  buf  chat  Is  not  a  delimiter,  and  store  it  In  count 


For  every  char  In  buffer,  starting  with  first  delimiter 


For  every  char  in  delimiter  string 


Char  in  buffer  «  char  in  delimiter? 


NO 


YES 


Terminate  outermost  for  loop, 


Copy  character  from  buffer  to  token. 


Increment  count, 


Null  terminate  token  buffer. 


Return  count  of  characters  in  token  and  count  of  delimiter  characters  scanned  at  beginning. 


ko 


init  drlve(drv) 


Set  up  dib  entry  for  drive  to  Indicate  that  drive  is  open. 


Open  root  directory  of  drive. 


Read  entry  in  root  directory  describing  itself. 


Read  freemap  for  disk. 


Did  either  of  the  reads  fail? 


Indicate  disk,  is  off  line, 


Return  (-1) 


Return  (0). 


ill 


inlt_ 

flb(fib. 

index  b. 

off) 

Assign 

appropr 

late  values  to 

elements 

of 

file 

information 

block. 

Return 

(0). 

io  init() 


Put  the  address  of  each  device's  handler's  input  queue  into  DEV  TAB. 


Do  for  each  device 


Put  the  address  of  this  device's  request  semaphore  into  the  request  block  for  this  device. 


Init  pnl() 


Call  Z80  LD  to  get  a  pointer  to  the  Z80  microcode 


Set  up  so  that  writes  go  to  all  remote  display  heads 


Write  the  microcode  to  the  Z80  panel  controller 


Free  the  space  occupied  by  the  microcode  in  the  Level  6 
memory. 


Initialize  the  Z80's  internal  variables. 
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index(ln  atr,  of  str) 


lth  of  -  length  of  "of"  string. 


Point  pi  at  ln_string  and  p2  at  of_str. 


For  every  character  In  "in"  string 


Does  char  in  "in"  string  «  char  in  "of"  string? 


YES 


Is  next  char  of  "of"  string  ending  null? 


NO 


Increment  pi. 


Return  (-1). 


YES 


Point  pi  and  p3  into  "in"  string,  where  match  would 
start  to  end  here. 


Compare  the  characters  pointed  at  by  p2  and  pi,  ending 
when  they  differ,  or  when  hit  end  of  "of"  string. 


Did  all  chars  match? 


NO 


YES 


pi  -  P3. 


p2  •  beginning  of  of_str. 


Return  Index  into  in_string 
of  beginning  of  match. 


h3 


b  driver () 


K>TE:      ThU  vtr»lon  of  kb_driver   1*   specific   to  the  LSI   11   IT. 


hk 


kb  driver 


NOTE:   Thla  version  of  kb  driver  1*  apeclflc  to  the  Level  6. 


1+5 


kb  driver:   data  typo* 


YES 

_ Is  the  keyboard  open? 

NO 

In  there  a  saved  u 

p  read?                           """ 

Ring 

bell. 

Put  Input  character  Into  user'a  buffer. 

^**""""*^ls  there  apace  In  buffer?  / 
YES           ""^-^^^    /NO 

Vee  user'a  semaphore. 

Reset  "saved  read'  flag. 

Put  the  character  Into  the  buffer. 

YES 

Are  wc  echoing?        ^r 

-             X   NO 

Print  the  character  using  put ascll. 

This  Is  not  s  procedure.   It  Is  one  case  In  kb_drlver. 


kb  driver:   flush_type 

Empty  the  Input  buffer. 

^""^"""■»»»_>ii>^          Is  a  read  pending? 
YES -^^_^^ 

jf        NO 

Sat  data  length  to  zero  and  reject  the  saved  read  request. 

Vee  the  user's  semaphore. 

NOTE:   This  Is  not  a  procedure.   It  Is  one  case  In  kb  driver. 


kb_driver:   resd_type* 


Is  the  buffer  empty?         ^ "" "" "" 
NO                        ' ___^- '   "       YES 

Compute  length  to  give  the  user. 

Save  the  read  request. 

Copy  characters  Into  user's  buffer. 

Vee  user's  semaphore. 

•This  Is  not  a  procedure.   It  Is  one  case  In  kb_drlver. 


kb_drlver:   set  mode  type 

Switch  on 

type  of  setmode. 

•cho_on 

set_xy 

echooff    ^~~*^. 

/   defsult 

Sat  "echoing"  flag  on. 

Set  "echoing"  flag 

off. 

Set  "reject 
request"  In 
request 
block. 

Set  x  -  y  coordinates. 

Vee  user's  semaphore. 

46 


klll(proc_id) 

^^m^^  Does  Id  indicate  a  valid  process?  ^^^ 
NO              ^s^»s>^     ^0**^                   YES 

Return(-l). 

Set  the  guardword  to  indicate  that  the  process 
should  be  killed  the  next  time  it  is  scheduled. 

Return(O). 

Id  cs() 


Isthis  charset  resident  in  the  display  head? 


Rsrv_pnl . 


Allocate  space  for  the  effector  table  as  "variable"  number  3. 


Write  the  effector  table. 


Allocate  space  for  the  characters  as  "variable"  number  2, 


Write  the  characters  (the  bytes  of  each  word  must  be  swaped  before  writing  them). 


Flag  the  current  character  set  as  the  currently  loaded  alternate. 


RIs  pnl. 


Write  out  a  new  charset  descriptor  (specifying  the  size  of  the  characters  and  which 
"variables"  to  use  for  the  effector  and  character  tables). 


ld_page() 

Has  the  page  been  changed  since  last  time  we  were  here^^ 
YES                   /NO 

Format  a  page  descriptor  for  the  Z80. 

Write  it  out. 

4T 


ldlv(hl,  lo,  d) 


Copy 

the  pa 

ir  (hi,  lo) 

to 

reglaters 

RO 

and 

Rl. 

Do  a 

double 

word  divide 

on 

(RO, 

Rl) 

by 

d. 

quotient. 

NOTE:   This  version  of  ldiv  is  specific  to  the  LSI  11  IT. 


ldiv(hi,  lo,  d) 


Copy 

the  pair  (hi,  lo) 

to 

registers 

R6 

and 

R7. 

Do  a 

double  word  divide 

or 

>  (R6, 

R7) 

by 

d. 

Return  the  quotient. 

NOTE:   This  version  of  ldiv  is  specific  to  the  L6  IT. 


kS 


ln_xpand(out.  In,  pi,  p2,  p3, .  .  .) 


Length  -  0. 


Nextparm  -  address  of  first  parameter  (pi). 


While  there  Is  still  something  in  the  input  format  specification 


Copy  the  char  from  the  input  buffer 
to  the  output  buffer. 


ptr  ■  parm_xpand  (pointer  to  format 
specifier,  and  next_parm,  and 
skipped) . 


Move  the  input  buffer  over  one 
character. 


Increment  in  pointer  by  skipped, 


Increment  length  by  one. 


Copy  the  string  pointed  to  by  ptr 
into  the  output  buffer,  and  incre- 
ment length  by  the  length  of  this 
string. 


Null  terminate  the  output  string. 


Increment  length  to  include  the  trailing  null. 


Return  length. 


h9 


lrea(hl,  lo,  d) 


Copy 

the  pa 

lr  (hi,  lo) 

to 

registers 

RO 

and 

Rl. 

Do  a 

double 

word  divide 

on 

(RO, 

RD 

by 

d. 

Return  the 

remainder. 

NOTE:   This  version  of  lrem  is  specific  to  the  LSI  11  IT. 


lrea(hi,  lo,  d) 


Copy 

the  pa 

ir  (hi 

,  lo) 

to 

register: 

i  R6 

and 

R7. 

Do  a 

double  word 

dlvis 

ion 

on  (R6, 

R7) 

by  d 

• 

Return  the 

remain 

der. 

NOTE:   This  version  of  lrem  Is  specific  to  the  L6  IT. 
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mfps() 


Return  Che  value  of  Che  PSW. 


NOTE:   This  version  of  mfps  is  specific  Co  Che  LSI  11  IT. 


■fps() 

Pick  up  Che  syscem  status  word. 

Decode  the  currenc  level  number  from 

it. 

^*^«i«Sn^   Is  chis  level  greacer  Chan 
^"**s«>1>^  able  level  for  Che  L6? 

NO          ^-V^^ 

the  non-interrupt-,^***^ 

^00^^                YES 

lev  -  Che  non-inCerruptable 

status  word  for  LSI  11. 

lev 

-  0. 

Return  (lev). 

NOTE:   This  version  of  mfps  is  specific  to  the  L6  IT. 
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■k_page(p  ptr,  left,  bottom,  width,  height) 


Copy  parameters  to  corresponding  positions  in 
structure  pointed  to  by  p_ptr. 


itps(prio) 


"— "-— ^•.^^^    Does  prio  have  the  LSI  11  non-lnterruptable            ~~~~~ 

bit  set? 

Pick  up  the  hardware  status  word. 

Do  a  LEV  that  will  leave  the  activity 
bit  set  for  the  current  level,  and 
switch  us  to  be  working  at  the  non- 
lnterruptable  level. 

Decode  the  current  level. 

^**'*«««Vsi^  Are  we  currently  interupt-  ^^^^ 

^**--^^        able?        ^-^ 

NO      ^*^v^||||^      ^**^         YES 

Do  a  LEV  that  resets 
the  activity  bit  for 
the  non-interruptable 
level  and  schedules 
the  next  ready  level. 

Leave  us  at  our 
current  level. 

NOTE:      This  version  of  mtps   is   specific   to  the  L6   IT. 


itps(prlo) 


Copy  prio  into  the  PSV. 


NOTE:   This  version  of  mtps  Is  specific  to  the  LSI  11  IT. 


open(name,  flag  iatatus) 
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Determine (name) , 


NO 


Is  device  name  ok? 


Return  error. 


Does  some  other  process  own  this  device? 


YES 


Did  the  caller  ask  to  wait  for  the  device? 


Pee  the  requestor  semaphore. 


Make  this  process  owner  of  the  device. 


NO 


NO 


Vee  any  outstanding  pee's  on  the  delvce  semaphore. 


Send  a  flush  request  to  the  handler  process. 


Pee  the  devtce  semaphore. 


Send  an  open  request  to  the  handler  process. 


Pee  the  device  semaphore. 


Set  status  for  caller  from  status  returned  from  device  handler  for  open  request. 


Close  the  device. 


Return  error. 


Return  success. 


53 


0 

41    w 

a  e 

>-■*    • 

pH 

u          b 

9 

U     4) 

q 

41     4)   <M 

<M 

X  w  im 

"V                      «l 

u    u    9 

^V       "^ 

<0  X. 

a  a  4i 

0  X  £ 

U     U    u 

1 

3 

«*-t    • 

X 

4i  e  u 

X          41 

41 

w    4)  IM 

X 

01   IM 

w 

e  a  3 

e 

0  X  X 

0 

e 

•H 

*■! 

I  "x 

• 

c 

a,x  w 

• 

e 

X 

« 

1 

0 

W  -<    0 

/  * 

4J    k    W 

« 

a 
e 

e 

a         c 

■ 

<n 

/    *» 

-  e"1 

a. 

f    o. 

u  u 

X 

X 

1     >> 

3     41 

3   a  2 

u 

M 

V 

■w 

f     w 

a.  — 

0 

0 

I 

IN 

41 

IM 

3 

IM 

41    0      • 

e 
o 

£ 

X 

X          t- 
w    41    41 

»« 

u 

41 

00   «- 

4J 

X 

P   <x 

a 

e 

w 

0X3 

o 

X 

u 

e 

e  a 

u 

x 

^4 

3          V 

• 

u 

ex  x 

« 

AJ 

|  *J     W 

•o 

■M 

a 

U    -H 

» 

/             ° 

u    3    0 

u 

cn 

00          w 

2 

/                      41 

r              a. 

a 

W     U 

•  e 

■  E" 

0 

f                                        >N 

3    41 

0    "J      - 

IM 

• 

W 

a.  **-i 

a  an 

X 

41 

" 

a     1 

e 

O  X    3 

v4 

X 

• 

—   3 

5"o 

U 

C,X    M 

• 

41     41 

h->  c 

u 

£2 

41 

a 

U     4J 

a 

u 
a 

X 

-o 

u 

■ 

3 
X 

^*s"^_            o 

"  E-  M 

u 

CD  ^"»»w.       Z 

O    q  <m    tl 

•H 

00             ^^^^ 

Q     CL    0  «M 

H 

V 

IM 

41                   ^^»w^ 

41 

00 

u 

0 

o                    S 

IM 

IM 

M 

n 

a 

u 

B  c        / 

•       U 

E  i- 

|        u  <w 

3 

41 

09 

V 

1  «> 

M          -H    O    0 

X 

M 

1 

TJ 

<g  a         ,^ 
ax       >^ 

4J       ^^ 

«     3 

B     41 
CL   U 

4J             9             4J       • 

a   c        4i   c   b 

O     •  a  -h    4i 

41 

X 

a 
u 

u 
o 

S 

e 

4* 

■       ^r 

^ 

>.    0 

6)               CL     03             <frJ 

a 

M    ^r                V3 

•j 

a  u 

sex    •>« 

O     3    41          O    3 

c 

41 

• 

> 

-/^                 W 

3     C 

o  c 

e 

■<H 

X 

X 

u 

^^                     >• 

ft.    — I 

U    -H 

a  c  u  a  -■  x 

*H 

M 

u 

U 

M 

41 

IM 

«l 

"3 

iH 

4-1 

0 

X 

4>            U 

u            4) 

3 

41 

S 

oo 

o 

C           **-« 

X 

■ 

e 

*l 

H    0   <H 

u 

*■! 

0  *i    9 

41 

a 

e 

e 

a      x 

5 

Q. 

c 

*4 

3 

u  a   4i 

£ 

u 

40 

e 

a  X   u 

X 

4> 

u 

u 

x   9    n 

C 

41 

C 

X 

ss 

>.    09 

■-4 

41 

X 

41 

SS  X    Ji 

h 

0 

X 

Q 

a.       u 

hi 

w 

M 

0 

> 

4J 

o   o   o 
U  w  S 

V 

4J 

e 

o 

« 

M 

t-j    — -i 

*u 

0 

M 

w 

OJ 

«w  x  <a 

u 

a 

41 

e 

«    41    (J 

a 

0 

4J 

C 

0 

a 

u  X 

*  oS    . 

u 

3 

u 

vO 

o 

t) 

X   o 

X 

E 

■ 

a 

m 

C    u     41    «rt 

u 

X 

a 

0 
> 

• 

O.TJ 
3    4) 

i  •*  41 

41    0    8    01 

£ 

w 

? 

E 

w 

41 

ji  e  *■ 

u  a  m  - 

0 

•H 

4) 

3 

0) 

a 

U  *4    4 

<J         n    u 

u 

•H 

> 

«u 

i/j 

> 

4J 

•m    0  X 

a.  as 

c    0    n    41 

t-H    4J     a.  r^ 

jl 

£ 

2 

41 

pause () 


Enqueue  this  process  on  the  READY  Q. 

Call  block (). 

Return. 

pathname (your,  dir) 


Remember  where  your  string  begins. 


Compare  characters  In  your  and  dlr  strings  up  to  the  end  of  dir  and  as  long  as  the  two  strings  match. 


Did  the  strings  differ  before  the  end  of  the  dir  string, 
or  did  the  comparison  end  pointing  at  something  other 
than  a  NUL  or  delimiter  in  your  string? 


Return  pointer  to  beginning  of  your  string. 


Return  pointer  to  your  stlrng  where  comparison  ended. 
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pee(sem) 


Become  non- interrupt  able. 

Decrement    the   count    for   this   semaphore. 

^^^        Is   count    less   than  0?                                        ^0****^ 
NO               ^S,.                 ^0^***~**'                                   YES 

Enqueue   this   process   on   the   queue    for 
Chls   semaphore. 

Call   blockO. 

Restore   initial    priority. 

peek (device_id ,    (status) 

Is    d evice     id    out    of    range? 
YES                                                "             "      " - _ 

^^NO 

Return    error. 

■ . Does    this    process    own    the 

NO                                                                   ■ — ■ 

device? 

^/YES 

Return    error. 

Send    peek    request    to    device    handler. 

Pee    the    request    semaphore.                                                                                          ,   . 

_^^ 

Set    status    from    that     returned    by    handler    process    for    peek    request. 

""                              Is    "catastrophic"    bit    on    in    status?               

NO 

Return    error. 
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adX;  *;»p   :^a/.;jp  nd  »»s 


ad/^Uar-tj:  JSA-jjp  qd  aas 


C     B 
C    V 


I 


ad/1%  p«3j:u9A;jcp  t,d   as.- 


ft)      ft) 
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ph_driver:  data* 


While  there  is  a  pending  read,  and  there  is  more  data  in  our  buffer. 


Copy  the  next  character  from  our  buffer  into  the  reader's. 


Put  a  null  after  char  just  copied. 


Increment  the  reader's  count  of  data  in  the  buffer. 


Is  the  buffer  full,  or  was  the  last  char  copied  a  newline? 


YES 


Vee  reading  process, 


Set  saved  read  to  0. 


Increment  the  next  character  index  by  1,  module  our  buffer  size. 


♦This  is  not  a  procedure.   It  is  one  case  in  ph_driver. 


ph_driver:   close_type* 


\ 

^Js  the  phone  available?                    — 
NO   \.   ^ 

YES 

Flag  »  results  of  disabling  phone  input. 

^vls  phone  not  available,  or  is  flag  set? 
NO  N.    . " 

YES 

Set  catastrophic  and  reject  req  bits  in 

caller's 

status 

word. 

Vee  requesting  semaphore. 

*This  is  not  a  procedure.   It  is  one  case  in  ph_driver  and  is  specific  to  the 

Level  6  IT. 


59 


ph  driver:  flush  type* 


Stop  any  current  output  operation 

Eapty  the  input  buffer 

"    ■ — _         Is  there  a  saved  read? 

y/m 

Reject  the  saved  read 

'      -   Is  there  a  saved  write? 

YES                    "      ' ■ -^________^ 

^€ 

Reject  the  saved  write. 

— , Is  the  phone  line  down? 

Sm 

Set  error  flag  in  request  block. 

Vee  user's  semaphore. 

♦NOTE:  This  is  not  a  procedure.   It  is  one  case  in  ph_driver,  and 
is  specific  to  the  LSI-11  IT. 
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ph_drlver:   flushtype* 


Beset  PH_next  and  PH  free  to  0. 


Set  lo  error  flag  to  false. 


Set  aborted  bit  In  reader's  status  word. 


Vee  reading  process. 


Reset  saved  read  to  0. 


Flag  -  results  of  disabling  output. 


Flag  -  results  of  getting  status  word  for  CCB  Just  completed. 


Flag  •  results  of  getting  count  of  characters  not  sent. 


Set  the  writer's  data  count  to  the  nuaber  of  characters  sent. 


Set  aborted  bit  In  writer's  status  word. 


Vee  writing  process. 


Reset  active  write  to  0. 


Vee  requesting  process. 


•This  Is  not  a  procedure.   It  Is  one  case  In  ph_drlver  and  is  specific  to  the  Level  6  IT. 
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ph_driver:   open_type* 


Flag  -  results  of  resecting  CCB  list  for  phone  input 


For  each  buffer  used  by  phrint,  as  long  as  flag  ■■  0. 


Flag  ■  results  of  initializing  CCB  to  use  this  buffer. 


Reset  buffer  index  used  by  phrint. 


Flag  ■  results  of  enabling  input  for  phone 


Set  catestrophic  and  reject  request  bits  in  user's  status  word. 


Vee  requesting  process. 


•This  is  not  a  procedure.   It  is  one  case  in  ph_driver  and  is  specific  to  the  Level  6  IT. 


62 


63 


ph_driver:   status_change* 


Complement  th *   phone  available  flag, 


Set  catastrophic  and  aborted  bits  in  reader's  status. 


Vee  reading  process. 


Set  saved  read  to  0. 


Turn  off  output 


Input  status  for  CCB  just  completed, 


Input  number  of  chars  not  transmitted, 


Set  catestrophic  and  aborted  bits  in  writer's  status. 


Set  writer's  data_len  to  count  of  chars  actually  sent 


Vee  writing  process. 


Reset  active  write  to  0. 


*This  is  not  a  procedure.   It  is  one  case  in  ph_driver  and  is  specific 
to  the  Level  6  IT. 
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phriocO 


Get  Che  status  for  the  CCB  that  just  completed. 


Does  status  indicate  change  in  the  data  set  status? 


NO 


YES 


Send  status_change  message  to  phone  process. 


Return. 


For  every  character  in  our  data  buffer 


Initialize  a  new  CCB  using  the  buffer  Just  emptied. 


Increment  our  buffer  index  by  1  modulo  the  number  of  buffers  we  have 


NOTE:   This  version  of  phrint  Is  specific  to  the  Level  6  IT. 
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phxintO 


Input  status  for  CCB  that  just  finished. 

Input  CCB  range  to  get  count  of  characters  not  transmitted  and  store  in  global  PH  count. 

~^______^         CCB  status  indicates  an  error?            ^^^-~~"~~^ 

NO                    " — -~^__^^         ^ —"  ""              YES 

Send  message  to  phone  process  that 
the  write  has  finished. 

Send  message  to  phone  process  that 
the  write  failed. 

NOTE:   This  version  of  phxint  is  specific  to  the  Level  6  IT. 
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pp_write()  (code,  buffer,  count) 


Rsrv_pnl . 


Do  for  each  display  head. 


Turn  off  "must  wale"  for  thla  head. 


Is  thla  panel  selected? 


YES 


Do  "forever" 


Read  display  head  interrupt  level. 


Disable  Interrupts. 


Is  a  kb  or  tp  read  in  progress  from  this  head? 


YES 


NO 


Set  flag  to  make 
interrupt  routine 
wake  us  up. 


Enable  interrupts 


Attempt  to  start  the  write. 


While  read  still 
in  progress 


Null. 


Enable  inter- 
rupts to  cp. 


Pause. 


Pee  the  head's 
semaphore. 


Do  until  success 


Read  panel 
status. 


Set  flag  so  inter- 
rupt routine  will 
wake  us  up . 


Turn  on  "must  wait" 
flag  for  this  head. 


Enable  interrupts  to  cp. 


Break. 


Do 


for  each  display  head  that  has  "must  wait"  flag  set. 


CE 


Rls  pnl. 


Pee  the  head's  semaphore. 


NO 
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print f (format,  pi,  p2,. 


Start  a  pointer  at  first  character  of  format  string. 


Do  while  there  are  atill  characters  In  the  format  string. 


Is  the  next  character  in  the  format  a  'Z'? 


NO 


YES 


Call  put_ascii  to  print  the  character. 


Use  parm_xpand  to  expand  the  next  parameter. 


Increment  format  string  pointer  past  the 
character. 


Increment  format  string  pointer  past  format 
descriptor. 


Do  for  each  character  in  the  expanded  string 


Use  put_ascli  to  print  the  character. 


NOTE:   This  version  of  prlntf  is  specific  to  the  LSI  11  IT. 


prlntf  (fmt,  pi,  p2 ) 


Set  s   to  point  to  this  character 
In  the  format  string. 


Print  the  string  from  s  up  to  here, 
using  putstring. 


Advance  to  next  format  string  character. 


Use  parm  expand  to  expand  the  next  parameter. 
Print  expanded  parameter. 


Advance  past  format  in  format  string. 


"s"  »  null. 


NOTE:   This  version  of  prlntf  is  specific  to  the  Level  6  IT. 
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put  (x,  y,  vector,  count, 

flag) 

Compute  any  shifting  required  to  do  addressing  on  16-dot  boundaries. 

**                  T°  it  a  single  vector  written  many  times?         ..           "" 

YES            '    " ■ , —      ' 

^"^^--^^^^^  Is  shifting  required?   ^ 

TES         -^^^     ^^^-"-^    no 

Rsrv  pnl. 

" Is  shifting  required?       / 

YES            " ""-"-— -^_  /N° 

Write  top  part  of 
vector. 

Write  out  the  vector. 

Copy  vectors  into  local  buffer  and  write 
out  18  at  a  time,  shifting  to  write  lower 
parts  of  vectors. 

Write  bottom  part  of 
vector. 

Copy  vectors  into  local  buffer  and  write  out  18  at 
at  a  time,  shifting  to  write  upper  parts  of  vectors 
(or  all  of  vectors). 

Rls  pnl. 

NOTE:   This  version  of  put  is  specific  to  the  Level  6  IT. 


put  (X 

,  Y,  vector,  count,  flag) 

Compute  amount  of  shirting  required  to  do  the  puts  on  16-dot  boundrles 

Set  up  panel  registers  for  write 

Do  count  times 

"*""" — «^^^      Is  it  a  put  of  a  single  vector?    ^ """""""^ 
Yes         "  " — — - *«^__^          ^ — " No 

data  =  vector 

data  =  next  word  pointed  at  by 
vector 

'   " Is  shifting  required?         yS 

Put  lower  part  of  vector  "data"  on  the  screen 

Put  upper  part  (or  all  of)  vector  "data  on  the  screen 

Increment  the  X  panel  address 

NOTE:  This  version  of  put  is  specific  to  the  LSI- 11  IT. 
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putstring  (buffer. 

count) 

Ld_page . 

Ld  cs. 

Write  the  string. 

putchar(x,  y. 

ch) 

Get 

a  pointer 

to 

the 

vectors 

for 

this 

character 

In 

the 

current 

character 

set. 

Use 

put  to  VT 

ite 

the 

vectors. 

NOTE:  This  version  of  putchar  is  specific  to  the  LSI  11  IT. 


putdot 


Write  an  appropriately  formatted  message  to  the  Z80  panel  controller. 


NOTE:   This  version  of  putdot  is  specific  to  the  L6  IT. 


putdot  (X,Y,3iode) 


Set  panel  registers   to  write  or  erase  the  dot  at  X,Y. 


NOTE:     This  version  of  putdot  is   specific  to  the  LSI-11  IT. 
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putlinet'Xa,  Ya,  Xr,  Yr,  mode) 


NOTE:   This  version  of  putline  is  specific  to  the  LSI  11  IT. 


putline 


Write  an  appropriately  formatted  message  to  the  Z80  panel  controller. 


NOTE:   This  version  of  putline  is  specific  to  the  L6  IT. 
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read(device_id,  buf_ptr,  length,  (status) 


Does  this  process  own  the  device? 


YES 


Return  error. 


Send  read  request  to  device  handler. 


Pee  the  request  semaphore. 


Set  status  from  that  returned  by  handler  process  for  read  request. 


Is  "catastrophic"  bit  on  in  status? 


YES 


NO 


Return  error. 


Return  success. 


read_q(q_ptr) 


Pee  the  semaphore  for  this  queue. 


Deq  an  element  from  this  queue. 


Return  the  value  returned  by  deq. 
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reatart_io(chan,  it_ld) 


Offset  -  in_out  *  the  number  of  LCT  bytes  per  channel. 


Ptr  -  the  address  of  the  LCT  bytes  for  this  channel  In  the  initial  MLCP  image. 


Flag  -  false. 


For  every  LCT  byte  for  this  channel 


Write  this  byte  to  the  corresponding  LCT  byte  for  this  channel. 


Flag  •  true. 


Break. 


Flag  -  results  of  enabling  lo  on  this  channel, 


Return  (flag). 
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ringbelK) 


NOTE:  This  version  of  ringbell  is  specific  to  the  LSI11  IT. 


ring  bellO 


Write  an  appropriately  formatted  message  to  the  Z80  panel  controller. 


NOTE:   This  version  of  ringbell  is  specific  to  the  L6  IT. 


T8 


Rls  pnl() 


rsrv  pnl() 


NO 

This  process  owns  the  panels? 

y'YES 

pee  (pp_access). 

pp_owner  ■  ME. 

Increment  pp_res_level. 
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s_read(drive,  lector,  buffer) 


Compute  bus  address  of  disk. 


Compute  physical  track  and  sector  number  for  the  sector. 


Do  up  the  maximum  number  of  retries 


Loop  forever 


Try  to  do  an  IOLD  to  load  the  buffer  address  and  size  Into  the  Interface 


Have  we  exceeded  the  maximum  number  of  attempts? 


YES 


Return  error. 


Write  track  and  sector  numbers  to  the  interface. 


Start  a  seek. 


Do  until  status  is  read 


Try  to  read  disk  status  (success  implies  that  the  seek  is  done). 


Do  until  status  is  read 


Try  to  read  disk  status  (success  implies  that  read  is  done). 


n*"TE:  This  version  of  s  read  Is  specif!--  to  *-h»  I,e\-el  6  IT. 


NO 


Nll'IK:       l,l|,j    *"'rr' ' ""    '•'    •■    r.   1. 1    Is    *).,..  |  r  1 .     1,.    Mi,-    I.Sl     II     II 
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•_wrlte(drtve,  sector,  buffer) 


Computer  bus  address  of  disk. 


Compute  physical  track  and  sector  number  for  the  sector. 


Do  up  to  the  maximum  number  of  retries. 


Loop  forever 


Try  to  do  an  IOLD  to  load  the  buffer  address  and  size  into  the  interface. 


Have  we  exceeded  maximum  number  of  attempts. 


YES 


Return  error. 


Write  track  and  sector  numbers  to  the  Interface. 


Start  a  seek. 


Do  until  status  Is  read: 


Try  to  read  disk  status  (success  Implies  that  the  seek  Is  done). 


Do  until  status  Is  read: 


Try  to  read  disk  status  (success  Imp 


lies  that  the  write  Is  done). 


HOTE:      Thl 


•  version  of   s_wrlte   Is  specific  to  the   Level  6   IT. 


wr  lt«'(Jr  lw,  Hi-iiiir,  biitHT) 


Drv  »  drive  number  less  than  11. 


Trk  •  number  of  track  containing  sector. 


Sect  ■  number  of  sector  on  track. 


For  the  maximum  number  of  attempts: 


Send  drv  and  sect  numbers  to  disk. 


Walt  for  the  disk  to  be  ready. 


Set  disk's  address. 


Send  track  number  and  write  command  to  disk. 


Walt  for  the  disk  to  be  ready. 


Swab (l he  il.it. i  ri'.id). 


Return  (0). 


K.-iurn  (-1). 


Mini.   ii, i„  „..r„|„„  ,,i  Hwrll.-  Is  Miifiilii  I  •  I  In-  LSI  II  IT. 
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save  free(drv) 


Is  drive  number  (drv)  out  of  range? 


Return(-l) 


Write  the   injnemory  copy  of  freemap   to  disk. 


Return  results  of  write. 


screen  clear 


Write  an  appropriately  formatted  message  to  the  Z80  panel  controller. 


NOTE:      This  version  of  screen_clear  is  specific  to  the  L6   IT. 


screen  clear() 


Set  panel  control  register  to  clear  the  screen. 


NOTE:     This  version  of  screen  clear  is  specific  to  the  LSI-11  IT. 
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s 

crunch(ptr,  size,  num) 

For 

size  times 

*ptr  -  *(ptr  +  num). 

Increment  ptr. 

seek(4evice_id,  length,  type) 


85 


set_charset(cs) 


CS  ID  -  CS 


•et_cur8or(x,y) 


Convert  x  and  y  from  character  to  dot  coordinates. 


Assign  values  to  curs_x  and  curs_y. 


NOTE:   This  version  of  set_cursor  is  specific  to  the 
LSI-11  IT. 


•et_cursor  (x_addr,  yaddr) 


Convert  parameters  to  dot  offsets. 


Write  offsets  to  display  head  controller. 


NOTE:   This  version  of  set_cursor  Is  specific  to  the  Level  6  IT. 


86 


••«._•:.  v  (env_ptr) 

Sec_charaet. 

S«t_cursor. 

Set_page . 

YES 

_^^   Is  this  the  Level  6  version? 

NO 

Set_pnl. 

••t_s»de(devlce_ld,  buf_ptr,  length,  istatus) 


- — ■ ___ Is  devlce_ld  out  of  range? 

YES                                      . 

^X'NO 

Return  error. 

" — — — ________^^^     Does  this  process  own  the  device? 

NO                        ' — . 

.X^ES 

Return  error. 

Send  set  mode  request  to  device  handler. 

Set  status  from  that  returned  by  handler  process  for  set  node  request. 

" Is  "catastrophic"  bit  on  In  status? 

Return  error. 
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•etpage  (pageptr) 

Move  parameters  from  the  new  page  descriptor  to  the  "current"  one. 

"""*■—— ^^^^^       Is  this  the  Level  6  version?           / 

YES                   ""^""*~'~ — *^^                / 

»^^^^       /  NO 

Set  the  "nev  page"  flag. 

startupO 


Size  ■  maximum  address  of  available  memory. 


Zero  memory  from  the  end  of  the  program  to  the  end  of  memory. 


Set  up  CORETAB  to  indicate  all  of  free  memory. 


Clear  the  panel. 


Allocate  space  for  the  free  queue  elements. 


Initialize  the  list  of  free  queue  elements. 


Set  the  default  page,  character  set,  and  cursor  position  to  use 
for  plasma  panel  printing. 


Set  up  the  READYQ  as  empty. 


Create  all  the  processes  specified  in  PROCTAB. 


Initialize  the  I/O  system. 


Call  first  block. 


NOTE:   This  version  of  startup  is  specific  to  the  LSI  11  IT. 
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startup  fhigh^ 


Set  up  C0F.ETA5  to  indicate  all  of  memory. 


Allocate  spaje  for  the  Cr@e   queue. 


Initialize  the  list  of  free  queue  elements. 


Disable  interrupts  from  all  of  the  remote  display  heads. 


Set  up  READY  Q  as  empty. 


Initialize  the  remote  display  heads. 


Set  default  page,  character  set,  and  sursor  position  far  plasma 
panel  printing. 


Create  all  processes  specified  in  FROCTAB. 


Load  the  MLCP. 


Initialize  the  I/O  system. 


Enable  interrupts  from  all  remote  display  heads. 


_ 


Call  first  block. 


NOTE:  This  version  of  startup  is  specific  to  the  Level  6  IT. 
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str  num(num,  base,  place) 

^V^  Is  base  valid  (i.e.,  greater  than  1  and 
^V^   less  than  16)? 

NO     >w     ^ ^                                 YES 

Put  a  »*'  in 
place. 

next  ■  quotient  of  unsigned  division  of  nun  by 
base. 

\     next  !  *  0?          ^^^** 
NO  \           ^^t^0*00*                 YES 

Recursively  call  str  num  with  parameters 
next,  base,  and  place. 

next  ■  remainder  of  unsigned  division  of  num 
by  base. 

Convert  next  to  the  ASCII  character  representing 
its  value,  and  put  that  char  where  indicated 
by  *place. 

Increment  *place  by  one  character. 
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suicide () 


Clean  up  any 

pending 

I/O  . 

issocla 

ted  v 

1th 

this 

process. 

Return  the  process' 

stack 

to 

the 

pool 

of 

free 

memory. 

Do  a  process 

switch. 

tiod(token,    separator) 


Get_cur8or. 

Get_page_size. 

Compute  length  of  token  string. 

Compute  length  of  separator  string. 

— * —       ta  (length  of  token  string)  +  (length  of  separator  string)  more  than  the/ 

__  space  left  on  this  line?                           / 

YES                   ' — -_. /    NO 

Print  a  newline  using  printf. 

Print  the  token  and  separator  strings  using  printf. 

■ 
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t<*_prtn,(d«ll„,    .ep.rator.    text.    panna) 


»-  t^,   find   Mr.t   Para^£^=I-:-         ,         ,        |      ■- 
YES 
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01 


a 


u 
H 

s 
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tp_driver:  data_type* 

YES 

— ________>^^^^  Is  the  touch  panel  open? 

y^w 

YES         """ 

Is  there  a  read  saved  up? 

"*           ■ """       NO 

Copy  the  touch  Into  the  user 

a   buffer. 

"^^--.^^Is  there  space  in  buffer? 

f    NO 

Vee  user's  semaphore. 

Reset  "read  pending"  flag. 

Copy  the  touch  into  the  internal 
buffer.                        1 

*This  is  not  a  procedure.   It  is  one  case  in  tp  driver. 


tp_driver:   read  type* 


Is  there  data  available?      ^ "" 

YES                 " „        NO 

Compute  number  of  touches  to  give  to  user. 

Save  the  read  request. 

Copy  touches  into  user's  buffer. 

Vee  user's  semaphore. 

♦This  is  not  a  procedure.   It  is  one  case  in  tp  driver. 


9U 
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tt  activate(t) 


For  every  slot  in  tt_current 


Is  this  slot  empty? 


tt  current (slot)  -  t, 


Display  the  target, 


Return(slot) 


Return  (-1) 


YES 
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tt_arranger(ltat,  nua,  valuea,  labels,  c»,  flag*,  area,  t  width,  t  height,  mode) 


Copy  valuea  in  area  to  left,  bottom,  width,  and  height. 


Max_p«r_rov  •  sax  number  of  targeta  t_wldth  dota  wide  that  will  fit  In  one  torn. 


1  •  height  of  final  block  of  targets. 


Move  bottom  up  by  half  of  difference  between  1  and  available  area. 


height  •  1. 


1  *  width  of  row  of  targets. 


Move  left  over  by  half  the  difference  between  1  and  available  area. 


width  -  i. 


y  ■  height  of  area. 


For  nun  descriptions 


Move  y  down  the  height  of  one  target. 


Move  x  back  to  0. 


la  this  the  last  row  and  are  we  centering  horlzontall 


Cet  width  of  this  row. 


Move  left  over  by  h.ilf  the  difference  between  this  width  and 
wl'llh  of  .irii. 


Create  a  target  at  x+left,  y+hottom  having  the  attributes  specified  In  parameters. 


Move  x  over  one  target  width. 
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tt  cleanupO 


For  every  slot  in  tt_current 


Delete  the  target  pointed  to  by  the  entry  in  that  slot. 


tt_create(t,  x,  y,  width,  height,  value,  label,  cs,  flag) 


Copy  the  parameters  into  the  appropriate  fields  of  the  target  structure. 

Reset  the  in  use  flag. 

"~"   - — ^^^stflags  set  so  that  the  target  would  appear  on  no  remote 
*"** — -^.^^     display  heads? 

YES                            " ^^^      / 

NO 

Set  tflags  so  the  target  will  appear  on  head  0,  only. 

NOTE:   This  version  of  tt  create  is  specific  to  the  Level  6  IT. 


tt  create(t,  x,  y,  width,  height,  value,  label,  cs,  flag) 


Copy  the  parameters  into  the  appropriate  fields  of  the  target  structure. 


Reset  the  in  use  flag. 


NOTE:   This  version  of  tt  create  is  specific  to  the  LSI-11  IT. 
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tt  deactlvate(slot) 


Erase 

the 

target  Identified  by 

slot. 

Delete 

the 

target. 

Return 

the 

results 

of  erasing  and  delet 

Ing. 

tt_delete(slot) 

""""■--—-— ^^Does  slot  Indicate  an  active  target? 

NO                     ■*-* — ^^^^ 

v'  YES 

Return  (-1). 

Turn  off  In  use  flag  in  target  indicated  by  slot. 

Zero  tt  current (slot). 

Return  (0). 

tt  flash(slot) 


*"     «^^^_^     Does  slot  indicate  an  active  target? 
NO                       "*    — ■ 

yr           YES 

Return  (-1). 

NO 

Is  this  target  flashable? 

YES 

Lite  all  the  dots  in  the  target. 

Erase  then  all. 

Display  the  target. 

Return  (0). 
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ttlabel(slot) 


Return  (-1), 


Does  slot  indicate  an  active  target? 


t  ■  pointer  to  target  structure  for  target. 


Is  this  a  target  that  should  not  be  labeled? 


NO 


Return  (0), 


Remember  current  printing  environment. 


Set  x  and  y  to  coordinates  of  lower  left  corner  of  target,  leaving  white  space 
Inside  border. 


Set  width  and  height  to  the  size  of  the  target,  leaving  white  space  inside  the  edges. 


Set  the  charset  to  the  one  for  the  target. 


Get  the  size  of  characters  in  this  charset. 


Modify  x  and  width  to  center  a  maximum  line  of  characters  within  the  target. 


Set  the  printing  page  to  be  this  area  within  the  target. 


Position  the  cursor  at  the  top  of  the  page. 


Tok_print  the  label. 


Restore  the  printing  environment. 


Return  (0). 


NOTE:   This  version  of  tt_label  is  specific  to  the  LSI-11  IT. 


101 


tt_llte(slot,  mode) 


Get  the  coordinates  of  the  lower  left  corner  of  the  target 
In  x  and  y. 


Get  the  size  of  the  target  in  width  and  height. 


Area_lite(x,  y,  x  +  width  -1,  y  +  height  -1,  mode), 


Return  (0) 


NOTE:   This  version  of  tt_lite  is  specific  to  the  LSI-11  IT. 


tt_lite(slot,  mode) 

•                 "" Does  slot  indicate  an  active  target? 

^S^     YES 

Return  (-1). 

^S^  Is  this  a  flashable  target?            

Get  the  coordinates  of  the  lower  left  corner  of  the  target  in  x  and 

i- 

Get  the  size  of  the  target  in  width  and  height. 

Rsrv_pul. 

Get_pul  (&pul). 

Use  set_pnl  to  set  from  tflags  the  set  of  display  heads  to  write  on. 

Area_lite  (x,  y,  x+width  -1,  y+height  -1,  mode). 

Set  pnl  (pnl). 

Rls  pnl. 

Return  (0). 

This  version  of  tt_lite  is  specific  to  the  Level  6. 
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tt  mark(slot,  mode) 


""             Does  slot  indicate  an  active  target? 

YES 

Return  (-1). 

^"■~"—- — »^^^^      Is  this  a  markable  target? 
NO                           "" .^^        jT 

YES 

Return  (0) . 

Get  coordinates  of  lower  right  corner  of  target,  offset  to 
be  inside  boarder,  in  x2,  yl. 

Get  coordinate  of  left  edge  of  mark  in  xl. 

Get  coordinate  of  top  edge  of  mark  in  y2. 

Area  lite  (xl,  yl,  x2,  y2, ). 

Return  (0). 

NOTE:   This  version  cvf  tt  mark  is  specific  to  the  LSI  11  IT. 


m . 
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*     |  .■-      S» 


tt_mark(slot,  mode) 

Does  slot  indicate  an  active  target? 

^  YES 

Return  (-1). 

■ Is  this  a  markable  target? 

NO                    ■ ^ 

^YES 

Return  (0). 

Get  coordinates  of  lower  right  corner  of  target,  offset  to  be  inside  border,  in  x2, 

yl. 

Get  coordinate  of  left  edge  of  mark  in  xl. 

Get  coordinate  of  top  edge  of  mark  in  y2. 

Rsrv_pnl. 

Get_pnl(&pnl). 

Use  set_pnl  to  set  from  tflags  the  set  of  remote  display  heads  to  be  written  on. 

Area_lite(xl,  yl,  x2,  y2,  mode). 

Set_pnl(pnl). 

Return  (0). 

NOTE:      This  version  of  ttmark  is   specific    to  the  Level  6   IT. 
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ttjsove(t,  newx,  new_y) 


Set  tx  and  ty  entries  in  target  structure  t  to  nevjc  and  new^y. 


tt_outline(slot,  node) 


Cet  coordinates  of  lover  left  corner  of  target  in  xl  and  yl, 


Get  coordinates  of  upper  right  corner  of  target  in  x2  and  y2. 


Hove  xl,  yl,  x2,  and  y2  to  the  inside  of  the  target  to  leave  white  space 
around  it. 


Use  putllne  to  display  or  erase  the  four  lines  connecting  (xl,  yl)  to 
(xl,  y2)  to  (x2,  y2)  to  (x2,  yl)  and  back. 


Return  (0). 


NOTE:      This  version  of   tt_outllne   is  specific   to  the   LSI-11    IT. 
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tt_out line (slot ,  mode) 


Return  (-1), 


Does  slot  Indicate  an  active  target? 


t  ■  tt  current (slot). 


Get  coordinates  of  lower  left  corner  of  target  in  xl  and  yl. 


Get  coordinates  of  upper  right  corner  of  target  in  x2  and  y2. 


Hove  xl,  x2,  and  y2  to  the  inside  of  the  target  to  leave  white  space  around  it. 


Rsrv_pnl. 


Use  get_pnl  to  save  the  set  of  currently  selected  remote  display  heads. 


Use  set_pnl  to  set  the  set  of  selected  heads  to  those  specified  in  tflags. 


Use  pucline  to  display  or  erase  the  four  lines  connecting  (xl,  yl)  to  (xl,y2)  to  (x2,  y2)  to 
(x2,  yl)  and  back. 


Use  set_pnl  to  put  the  set  of  selected  heads  back. 


Rla_pnl. 


Return  (0) . 


NOTE:   This  version  of  tt  outline  is  specific  to  the  Level  6  IT. 
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tt_read (touch) 


Flush  input  from  the  touch  panel. 


While  (true) 


Read  the  coordinates  of  a  touch. 


tx  -  the  x  coordinate,  in  dots. 


ty  ■  the  y  coordinate,  in  dots. 


For  every  slot  in  tt  current 


Does  this  slot  describe  an  active  target  located  on  the 
.display  head  from  which  this  touch  came? 


Flash  this  target. 
Return  (slot). 


NOTE:   This  version  of  tt  read  is  specific  to  the  Level  6  IT. 
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CC  read (touch) 


Flush  input  from  the  touch  panel. 


While  (true) 


Read  the  coordinates  of  a  touch. 


tx  »  the  x  coordinate,  in  dots. 


ty  -  the  y  coordinate,  in  dots. 


For  every  slot  in  tt  current. 


NOTE:   This  version  of  ttread  is  specific  to  the  LSI  11  IT. 


tt_relabel(t,  str,  value,  mode) 

^"""•^w^^         Is  t  an  index  into  tt  current?        ^tat****** 
NO         "^^^^^^                 ^ -^             YES 

Use  t  as  target  pointer. 

Get  pointer  to  target  structure  to 
be  relabeled. 

Change  tlabel  and  tvalue  fields  of  target  structure  to  be  str  and  value. 
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tttelect  lon«(toueh,   max   num  ti-hs,    num.    ovrfl,    v/tlues,    (lots) 
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vee(sem) 

Become  non- interrupt  able . 

^V^  Is  the  count  for  this  semaphore  less^^^*"^^ 
^V         than  0?            ^0l00i»0000^ 

NO      >.       ^^000*0000^                                YES 

Dequeue  the  process  waiting  on  this 
semaphore. 

Add  that  process  to  the  READY  Q. 

Increment  the  count  for  this  semaphore. 

Restore  the  initial  interruptable  status. 

verify(sl,  s2) 

Count  -  0. 

For 

every  character  in  si  string 

For 

every  character  in  s2. 

^^>^  Does  this  char  in  s2  match  the    ^^^ 
^"V^current  char  in  si?        ^^^ 

NO       ^S^^         ^^^           YES 

GO  TO  OK. 

Return(count) . 

Peturn  (count) 

Or'.:  Inirer.ent,  ccunt 

Rett 

jm  (-1 

). 
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vlpproc  0 


NOTE:   This  version  of  vlpproc  Is  specific  to  the  LSI  II  IT. 
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vip_proc:   vlp  read* 

-~"~""~~— — _____ Is  this  a  read  request  and  another  read  Is  alre.idy  pending? 

YES                                         "   " __   <** 

NO 

Reject  the  new  read  request. 

B.eak. 

~~ "~ ~~" ~-~— Is  the  buffer  ?mpcyT 

_/ NO 

YES 

Save  a  pointer  to  this  request  block  as  a  pending  read. 

Break. 

While  there  are  still  input  characters  and  the  user's  buffer  is  not  exhausted. 

Copy  a  character  into  the  user's  buffer. 

■ Was  the  character  an  ETX? 

Jr       NO 

TES                                                        — 

Break. 

Hull  terminate  the  user's  buffer. 

Vea  the  user's  semaphore. 

•This  is  not  a  procedure.   It  Is  one  case  in  vipproc. 


vlp_proc :   vip_wr  i  t  e  * 


Vee  user's  request. 


Set  flag  Indicating  no  write  pending. 


Break. 


Construct  an  output  messa.gu,  using  as  much  data  from  the  current  write  request  as  will  fit  In  the 
output  buffer. — — — — — — — — 


Set  buffer  pointer  and  count  for  the  output  interrupt  handler. 


Set  flag  for  Input  Interrupt  processor  indicating  that  an  output  message  is  available. 


•This  la  not  a  procedure.   It  la  one  case  in  vlp_proc. 
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vlp_proc:  ack 


Is  the  count  zero  (i.e.  Is  the  write  now  completed)? 


YES 


NO 


Set  return  to  user  to  show  successful  write. 


Vee  user's  request. 


Break. 


Format  an  output  message,  using  as  much  of  the  user's  data  as  will  fit  in  the  buffer. 


Decrease  current  count  and  Increase  current  address  by  the  number  of  user's  characters  put  in  message. 


Set  a  flag  so  that  the  interrupt  routine  will  initiate  transmission  of  this  message  when  the  time  comes. 


•This  is  not  a  procedure.   It  is  one  case  in  vip_proc  and  is  specific  to  the  Level  6  IT. 


vlp_proc :  f luah_type* 


TES 

Is  this  a  close  or  a  flush? 

^/no 

Empty  the  input  buffer. 

TES 

___^ Is  a  read  saved  up? 

y/W) 

Reject  the  saved  read. 

YES 

, ___^^^^  Is  a  write  saved  up? 

ySm 

Reject  the  write. 

YES 

Is  this  a  close  or  a  flush? 

y^W 

Vea  the  request  semaphore. 

*Thla  is  not  a  procedure.   It  is  one  case  in  vipproc  and  is  specific  to 
the  Level  6  IT. 


Ill* 


vip_proc:   open_type* 


•This  is  not  a  procedure.   It  Is  one  case  In  vlpproc  and  Is  specific  to  the  Level  6 


IT. 


vip_proc:   read_type* 


YES 

^^  Is  there  already  a  read  saved  up? 

^0 

Reject  the  new  read. 

Break. 

YES 

Is  the  input  buffer  empty? 

'no 

Save  up  the  read  request. 

Break. 

Copy  data  into  user's  buffer,  stopping  at 
character,  whichever  is  first. 

end  of  buffer,  end  of  input  characters,  or  ETX 

Null  terminate  the  input. 

Vee  user's  request. 

*Thls  is  not  a  procedure.   It  is  one  case  In  vip_proc  and  is  specific  to  the  Level  6  IT. 
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viplntO 


HOTK:   Thl«  version  of  viplnt  t»  •peciflc  to  the  L*vel  h  IT. 
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vlpint:   ACK* 


Set  up  to  send  quiescent  frame 


•This  is  not  a  procedure.   It  is  one  case  in  vipint  and  specific  to  the  Level  6  IT. 


vipint:   data* 


Set  up  to  send  an  ACK. 


•This  is  not  a  procedure.   It  is  one  case  in  vipint  and  is 
specific  to  the  Level  6  IT. 


vipint:   NAK* 


""    **              Is  there  user  data  to  send?                             " 

Set  up  to  resend  user  data. 

Set  up  to  send  quiescent  frame. 

•This  Is  not  a  procedure.   It  is  one  case  in  vipint  and  is  specific  to  the  Level  6  IT. 


i  r, 


wfprlnl    () 
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adr  wait* 


Update  longitudinal  parity  check. 

^""^•.^Input  -  correct  address? 
YES    ^Sn>s^^ *   "              NO 

Inp_atate  -  stat_ 
wait. 

*  ""-.^^    Input  -  EOT?           ^^^f-"""^ 
YES       ^^"^-^^  ^^-^                     NO 

Inp  state  ■  got  trans. 

Inp  state  -  error  flush. 

I.e.  transmission  received  ok. 

I.e.  transmission  received 
In  error. 

•This  Is  not  a  procedure.   It  Is  one  case  In  vlprlnt. 


bcc  wait  • 


Is  the  Input  character  equal  to  the  longitudinal  parity  check  character?. 


MO 


YES 


Inp_state  ■  error_flush. 


Inpstate  -  SOH  EOT  wait. 


•This  la  not  a  procedure.   It  Is  one  case  in  vlprlnt. 


SOH  EOT  wait* 


YES 

Input  -  SOH?         " 

N^  ^^~~~~~~^                          NO 

Inp_state 
adr_walt. 

--»*^^  Input  -  EOT? 
YES       — -^^ 

/no 

Inp_atate  -  got_trans. 

I.e.  transmission  received 
ok. 

Initialize 

longitudinal  parity  check  charactei 

r. 

•This  la  not  a  procedure.   It  Is  one  case  In  vlprlnt. 
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atat  wait* 


Update  longitudinal  p« 

rlty  check. 

YES       ""-^^^ 

Input  »  null? 

Input_type  ■  3. 

^"**^^^t^        Input  -  ACK? 
YES       ****"»-^^^     _____ '                  NO 

I.e.  this  la  an  Input 
taxt  message. 

Input_type  -  1. 

"""""""■"•^^   Input  -  NAK?       ^^0**^* 
YES      ^***^-^.^^      ^^"^          NO 

Inp_atate  -  STXwalt. 

I.e.  this  is  an  ACK 
message. 

Input  type  •  2. 

Inp_atate  »  error_fluah. 

Inp  state  »  null_STX_ 
wait. 

i.e.  this  Is  a  NAK  mes- 
sage. 

Inp_atate  -  null_STX_wait. 

Transmission  is  In  error. 

•This  la  not  a  procedure.   It  la  one  caae  in  viprlnt. 


east  rav  * 


Update  longitudinal  parity  check. 

^^"-^^^   Would  thia  character  overflow  the  buffer?               ^__— _——""" 
TES      ^,^^-^^^^                  ^_________ — — NO 

Inp_etate  -  error_fluah. 

Insert  the  character  into  the  input  buffer. 

^*v  Was  it  an  ETX?                ^_____ 

NO  ^S.        '          YES 

Inp  state  -  bec  wait. 

•This  la  not  a  procedure.   It  la  one  case  in  viprlnt. 
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vipxlntO 

^...^^^      Are  there  characters  left  to  send?                   ^ — ■ ■"""""""" 

Send  the  next  character. 

Disable  the  transmitter  and  set  up  for  receiving. 

vrlte(device  id,  &status) 


Send  write  request  to  device  handler. 
Pee  the  request  semaphore. 


Set  status  from  that  returned  by  handler  process  for  write  request. 


la  "catastrophic"  bit  on  in  status? 


YES 


Return  error. 


Return  success. 


NO 


vrite_q(q_ptr,  value) 


Enqueue  value  on  queue, 


Vee  the  semaphore  associated  with  this  queue. 


xopen(fib,  lndexb,  o,  slot) 


Assign  appropriate  values  into  file  index  block. 


Return  (0) 
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Z80  lnt 
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zero  blk(ev,  blk) 


Plush  this  ev  structure's  buffer. 


Zero  the  buffer. 


For  each  sector  in  the  block 


Write  out  one  sector's  worth  of  zeros 


zero_sim(dl 

,  d2,  o,  userbuf,  1,  fen) 

^^   Is  either  1  or  o  out  of  range,  or  does  buffer 

>.  cross  a  block  boundary,  or  is  fen  not  PFAn?        — 

NO   \^           „__-. ■ 

YES 

Return  (-1). 

Fill  user's  buffer  with  O's. 

Return  (0). 
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